home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr35
/
id_chk11.zip
/
ID_CHECK.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-06-14
|
3KB
|
89 lines
'+--------------------------[ ID_CHECK Ver 1.10 ]----------------------------+
'| Written By Gary Meeker 06/01/93 Updated 06/14/93 |
'| SYSOP: SHARP Technical Support Line BBS Lawrenceville, GA |
'| (404) 962-1788 300-14400 Baud. 24 Hours |
'+---------------------------------------------------------------------------+
'V1.00 06/01/93 - Initial Release
'V1.10 06/14/93 - 2nd Release - Added feature to collect numbers to check
' from Users known to use PC Pursuit.
DEFINT A-Z
' QuickPack Declarations
DECLARE SUB KillFile (FileName$)
' PDQ Declarations
DECLARE FUNCTION PDQExist% (FileSpec$)
DECLARE FUNCTION PDQParse$ (Work$)
DECLARE SUB SetDelimitChar (Char)
' Myown Declarations
DECLARE SUB INC ALIAS "_inc" (IntVar%)
DIM UserName AS STRING * 25, CheckName AS STRING * 25
PRINT "ID_Check Ver 1.10 - Copyright 1993 Gary Meeker"
' Get the Command Line
C$ = UCASE$(COMMAND$)
SetDelimitChar 32
SysFile$ = "PCBOARD.SYS"
CallIDFile$ = PDQParse$(C$)
ListFile$ = PDQParse$(C$)
PCPListFile$ = PDQParse$(C$)
IF PDQExist(SysFile$) THEN
OPEN SysFile$ FOR RANDOM ACCESS READ SHARED AS #1
GET #1, 85, UserName$
CLOSE #1
END IF
IF PDQExist(CallIDFile$) AND PDQExist(ListFile$) THEN
PRINT "Checking for "; PhoneNumber$; " ... " ;
OPEN CallIDFile$ FOR INPUT ACCESS READ SHARED AS #1
LINE INPUT #1, PhoneNumber$
CLOSE #1
OPEN ListFile$ FOR INPUT ACCESS READ SHARED AS #1
DO WHILE NOT EOF(1)
LINE INPUT #1, ListNumber$
IF ListNumber$ = PhoneNumber$ THEN
PRINT "Found Match - Deleting "; CallIDFile$;
KillFile CallIDFile$
Foundmatch = -1
EXIT DO
END IF
LOOP
CLOSE #1
PRINT
IF PDQExist(PCPListFile$) AND NOT FoundMatch THEN
PRINT "Checking PC Pursuit Users ... ";
OPEN PCPListFile$ FOR INPUT ACCESS READ SHARED AS #1
DO WHILE NOT EOF(1)
LINE INPUT #1, CheckName$
IF CheckName$ = UserName$ THEN
PRINT "PC Pursuit User Found - Adding to List."
OPEN ListFile$ FOR APPEND ACCESS READ WRITE SHARED AS #2
PRINT #2, PhoneNumber$
CLOSE #2
EXIT DO
END IF
LOOP
CLOSE #1
END IF
ELSE
PRINT "No file(s) found, aborting!"
END IF
END
'This file was last compiled with:
'BC ID_CHECK.BAS /o /s;
'LINK ID_CHECK+
' C:\QB\LIB\_NOERROR C:\QB\LIB\_NOFIELD C:\QB\LIB\_NOREAD C:\QB\LIB\_NOVAL+
' /ex /nod /noe /packcode /far
'
' nul
' C:\QB\LIB\SCREEN C:\QB\LIB\MYOWN C:\QB\LIB\QPPRO C:\QB\LIB\PDQFP
'